home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g01.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  52 lines
  1. 100 ' G01 T.WAKAMATSU
  2. 110 CD PLAY 5
  3. 120 FOR D=1 TO 2000:NEXT D
  4. 130 C=2:RANDOMIZE TIME/4:PI=3.14159!:DIM X1(30),Y1(30):CLS
  5. 140 FOR Q=30 TO 420 STEP 30
  6. 150   FOR P=20 TO 620 STEP 45
  7. 160     I=0:E=P+INT(RND*19):F=Q+INT(RND*15)
  8. 170     FOR J=20 TO 380 STEP 60
  9. 180       T=J*PI/180:I=I+1
  10. 190       X0(I)=8*COS(T)+E
  11. 200       Y0(I)=5*SIN(T)+F
  12. 210     NEXT J
  13. 220     I=0
  14. 230     FOR J=30 TO 390 STEP 30
  15. 240       T=J*PI/180:I=I+1
  16. 250       X1(I)=22*COS(T)+E
  17. 260       Y1(I)=14*SIN(T)+F
  18. 270     NEXT J
  19. 280     IF Q=30*3  THEN C=3
  20. 290     IF Q=30*6  THEN C=6
  21. 300     IF Q=30*10 THEN C=7
  22. 310     FOR I=1 TO 6
  23. 320       J=I*2-1
  24. 330       CONNECT(X0(I),Y0(I))-(X1(J),Y1(J))-(X1(J+1),Y1(J+1))-(X0(I+1),Y0(I+1)),C
  25. 340     NEXT I
  26. 350     CIRCLE(E-2,F+15)-(E-3,F+27)-(E,F+55),4
  27. 360     PAINT(E,F),C,C,7
  28. 370   NEXT P
  29. 380 NEXT Q
  30. 390 DIM X(1600),A(1600)
  31. 400 FOR I=1 TO 1535:X(I)=I:NEXT I:X(1536)=0
  32. 410 FOR I=1536 TO 1 STEP -1
  33. 420   R=INT(RND*I)+1
  34. 430   A(I)=X(R)
  35. 440   X(R)=X(I)
  36. 450 NEXT I
  37. 460 FOR I=1 TO 1536
  38. 470   Y=A(I)\64:X=A(I) MOD 64
  39. 480   LINE(X*10,Y*20)-(X*10+10,Y*20+20),PSET,1,BF,5
  40. 490 NEXT I
  41. 500 FOR I=1 TO 1536
  42. 510   Y=A(I)\64:X=A(I) MOD 64
  43. 520   LINE(X*10,Y*20)-(X*10+10,Y*20+20),PSET,0,BF,1
  44. 530 NEXT I
  45. 540 FOR I=1 TO 1536
  46. 550   Y=A(I)\64:X=A(I) MOD 64
  47. 560   LINE(X*10,Y*20)-(X*10+10,Y*20+20),PSET,0,BF
  48. 570   FOR D=1 TO 4:NEXT D
  49. 580 NEXT I
  50. 590 FOR D=1 TO 1500:NEXT D
  51. 600 CD STOP
  52.